home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacAdvocate 2
/
MACADVCT.ISO
/
mac
/
Goodies
/
Fun Stuff
/
Utilities
/
UltraFind
/
AppleScript™ Examples
/
UTF by Date
< prev
next >
Wrap
Text File
|
1996-12-30
|
1KB
|
40 lines
tell application "UltraFind 2.3"
clear
set the dateModified of its searchRoutine to "today"
--other examples :
--(NOTE: use short date in LOCAL format, i.e. UK = DAY/MONTH/YEAR, but US = MONTH/DAY/YEAR, etc.)
-- set the dateModified of its searchRoutine to "before 1/1/96"
-- set the dateModified of its searchRoutine to "after 1/1/96"
-- set the dateModified of its searchRoutine to "between 1/1/96 10/1/96"
-- set the dateCreated of its searchRoutine to "on 1/1/96"
scan
if the result is greater than 0 then
changeView finderView
sort by date last modified
end if
end tell
copy the result to numFiles
if numFiles is greater than 0 then
repeat with fileNum from 1 to numFiles
tell application "UltraFind 2.3"
copy (the filenamed of fileRecord fileNum) to fName
copy (the dateCreated of fileRecord fileNum) to crDate
copy (the dateModified of fileRecord fileNum) to mdDate
copy (the dateBackedUp of fileRecord fileNum) to bkDate
end tell
display dialog "Found File " & (fileNum as text) & " of " & (numFiles as text) & return & return & ┬
"File : " & fName & return & ┬
"Created : " & crDate & return & ┬
"Modified : " & mdDate & return & ┬
"Backed-up : " & bkDate buttons {"Cancel", "Next"} default button 2
end repeat
end if